﻿<Serializable()> _
Public Class EseparacionVentaDetalle

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idSeparacionVentaDetalle As Int32
    Private _tpoGestion As Int32
    Private _idEdificio As Int32
    Private _descEdificio As String
    Private _idModelo As Int32
    Private _descModelo As String
    Private _nomModelo As String
    Private _idUndInmob As Int32
    Private _descUndInmob As String
    Private _idTpoInmueble As Int32
    Private _descTpoInmueble As String
    Private _idEstadoInmueble As Int32
    Private _valorVenta As Decimal
    Private _fchPago As String
    Private _precioVenta As Decimal
    Private _separacion As Decimal
    Private _ctaInicial As Decimal
    Private _saldoFinanciar As Decimal
    Private _idMoneda As Int32
    Private _idFormaPago As Int32
    Private _idEntidadFin As Int32
    Private _idCuenta As Int32
    Private _numOperacion As String
    Private _pagoScaneado As String
    Private _nroPartida As String
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32

    Private _techopropio As Decimal
    Private _FechaTP As String
    Private _TipoTP As Int32
    Private _FechaVenTP As String
    Private _EstadoTP As Int32

    Private _nroInmueble As String

    Private _Eproyecto As Eproyecto
    Private _descProyecto As String
    Private _Eetapa As Eetapa
    Private _descEtapa As String

    '-------    REPORTE COMISION VENDEDRO    --------'
    Private _correlativo As Int64
    Private _Evendedor As Evendedor
    Private _EdificioTpoInmuebleModeloInmueble As String
    Private _EunidInmobiliarias As EunidInmobiliarias
    Private _comisionSeparacionVenta As Decimal
    Private _Inmuebles As String

    '-------    REPORTE VENTAS    --------'
    Private _EtpoInmueble As EtpoInmueble
    
    '-------    FILTRO PROFORMA    --------'
    Private _dscto As Decimal
    Private _dsctoMonto As Decimal
    Private _Cliente As String
    Private _Vendedor As String
    '------------------------------------------------'
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idSeparacionVentaDetalle() As Int32
        Get
            Return _idSeparacionVentaDetalle
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVentaDetalle = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property idEdificio() As Int32
        Get
            Return _idEdificio
        End Get
        Set(ByVal value As Int32)
            _idEdificio = value
        End Set
    End Property
    Public Property descEdificio() As String
        Get
            Return _descEdificio
        End Get
        Set(ByVal value As String)
            _descEdificio = value
        End Set
    End Property
    Public Property idModelo() As Int32
        Get
            Return _idModelo
        End Get
        Set(ByVal value As Int32)
            _idModelo = value
        End Set
    End Property
    Public Property descModelo() As String
        Get
            Return _descModelo
        End Get
        Set(ByVal value As String)
            _descModelo = value
        End Set
    End Property
    Public Property nomModelo() As String
        Get
            Return _nomModelo
        End Get
        Set(ByVal value As String)
            _nomModelo = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property descUndInmob() As String
        Get
            Return _descUndInmob
        End Get
        Set(ByVal value As String)
            _descUndInmob = value
        End Set
    End Property
    Public Property idTpoInmueble() As Int32
        Get
            Return _idTpoInmueble
        End Get
        Set(ByVal value As Int32)
            _idTpoInmueble = value
        End Set
    End Property
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property

    Public Property valorVenta() As Decimal
        Get
            Return _valorVenta
        End Get
        Set(ByVal value As Decimal)
            _valorVenta = value
        End Set
    End Property
    Public Property fchPago() As String
        Get
            Return _fchPago
        End Get
        Set(ByVal value As String)
            _fchPago = value
        End Set
    End Property

    '***************Techo Propio
    Public Property FechaTP() As String
        Get
            Return _FechaTP
        End Get
        Set(ByVal value As String)
            _FechaTP = value
        End Set
    End Property
    Public Property TipoTP() As Int32
        Get
            Return _TipoTP
        End Get
        Set(ByVal value As Int32)
            _TipoTP = value
        End Set
    End Property
    Public Property FechaVencTP() As String
        Get
            Return _FechaVenTP
        End Get
        Set(ByVal value As String)
            _FechaVenTP = value
        End Set
    End Property
    Public Property EstadoTP() As Int32
        Get
            Return _EstadoTP
        End Get
        Set(ByVal value As Int32)
            _EstadoTP = value
        End Set
    End Property
    Public Property techopropio() As Decimal
        Get
            Return _techopropio
        End Get
        Set(ByVal value As Decimal)
            _techopropio = value
        End Set
    End Property
    '***************Techo Propio


    Public Property precioVenta() As Decimal
        Get
            Return _precioVenta
        End Get
        Set(ByVal value As Decimal)
            _precioVenta = value
        End Set
    End Property
    Public Property separacion() As Decimal
        Get
            Return _separacion
        End Get
        Set(ByVal value As Decimal)
            _separacion = value
        End Set
    End Property
    Public Property ctaInicial() As Decimal
        Get
            Return _ctaInicial
        End Get
        Set(ByVal value As Decimal)
            _ctaInicial = value
        End Set
    End Property
    Public Property saldoFinanciar() As Decimal
        Get
            Return _saldoFinanciar
        End Get
        Set(ByVal value As Decimal)
            _saldoFinanciar = value
        End Set
    End Property
    Public Property idMoneda() As Int32
        Get
            Return _idMoneda
        End Get
        Set(ByVal value As Int32)
            _idMoneda = value
        End Set
    End Property
    Public Property idFormaPago() As Int32
        Get
            Return _idFormaPago
        End Get
        Set(ByVal value As Int32)
            _idFormaPago = value
        End Set
    End Property
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property idCuenta() As Int32
        Get
            Return _idCuenta
        End Get
        Set(ByVal value As Int32)
            _idCuenta = value
        End Set
    End Property
    Public Property numOperacion() As String
        Get
            Return _numOperacion
        End Get
        Set(ByVal value As String)
            _numOperacion = value
        End Set
    End Property
    Public Property pagoScaneado() As String
        Get
            Return _pagoScaneado
        End Get
        Set(ByVal value As String)
            _pagoScaneado = value
        End Set
    End Property
    Public Property nroPartida() As String
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As String)
            _nroPartida = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    Public Property nroInmueble() As String
        Get
            Return _nroInmueble
        End Get
        Set(ByVal value As String)
            _nroInmueble = value
        End Set
    End Property

    Public Property Eproyecto() As Eproyecto
        Get
            Return _Eproyecto
        End Get
        Set(ByVal value As Eproyecto)
            _Eproyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property Cliente() As String
        Get
            Return _Cliente
        End Get
        Set(ByVal value As String)
            _Cliente = value
        End Set
    End Property
    Public Property Eetapa() As Eetapa
        Get
            Return _Eetapa
        End Get
        Set(ByVal value As Eetapa)
            _Eetapa = value
        End Set
    End Property
    Public Property descEtapa() As String
        Get
            Return _descEtapa
        End Get
        Set(ByVal value As String)
            _descEtapa = value
        End Set
    End Property

    '-------    REPORTE COMISION VENDEDRO    --------' 
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property
    Public Property Evendedor() As Evendedor
        Get
            Return _Evendedor
        End Get
        Set(ByVal value As Evendedor)
            _Evendedor = value
        End Set
    End Property
    Public Property EdificioTpoInmuebleModeloInmueble() As String
        Get
            Return _EdificioTpoInmuebleModeloInmueble
        End Get
        Set(ByVal value As String)
            _EdificioTpoInmuebleModeloInmueble = value
        End Set
    End Property
    Public Property EunidInmobiliarias() As EunidInmobiliarias
        Get
            Return _EunidInmobiliarias
        End Get
        Set(ByVal value As EunidInmobiliarias)
            _EunidInmobiliarias = value
        End Set
    End Property
    Public Property comisionSeparacionVenta() As Decimal
        Get
            Return _comisionSeparacionVenta
        End Get
        Set(ByVal value As Decimal)
            _comisionSeparacionVenta = value
        End Set
    End Property

    '-------    REPORTE VENTAS    --------' 
    Public Property EtpoInmueble() As EtpoInmueble
        Get
            Return _EtpoInmueble
        End Get
        Set(ByVal value As EtpoInmueble)
            _EtpoInmueble = value
        End Set
    End Property

    '-------    FILTRO PROFORMA    --------'
    Public Property dscto() As Decimal
        Get
            Return _dscto
        End Get
        Set(ByVal value As Decimal)
            _dscto = value
        End Set
    End Property
    Public Property dsctoMonto() As Decimal
        Get
            Return _dsctoMonto
        End Get
        Set(ByVal value As Decimal)
            _dsctoMonto = value
        End Set
    End Property
    Public Property idEstadoInmueble() As Int32
        Get
            Return _idEstadoInmueble
        End Get
        Set(ByVal value As Int32)
            _idEstadoInmueble = value
        End Set
    End Property
    Public Property Inmuebles() As String
        Get
            Return _Inmuebles
        End Get
        Set(ByVal value As String)
            _Inmuebles = value
        End Set
    End Property
    Public Property Vendedor() As String
        Get
            Return _Vendedor
        End Get
        Set(ByVal value As String)
            _Vendedor = value
        End Set
    End Property
    '------------------------------------------------'
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property idEdificioModeloInmueble() As String
        Get
            Return idEdificio & "," & idModelo & "," & idUndInmob
        End Get
    End Property
    Public ReadOnly Property idProyectoEdimznUndInmob() As String
        Get
            Return "EDIFICIO: " & descEdificio & "- MODELO: " & descModelo & " - " & descTpoInmueble.ToUpper & ": " & descUndInmob
        End Get
    End Property

    '-------    REPORTE COMISION VENDEDRO    --------'    
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return Evendedor.nombre & " " & Evendedor.apePaterno & " " & Evendedor.apeMaterno
        End Get
    End Property
    '------------------------------------------------'
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    '-------    CONSTRUCTOR  SEPARACION VENTA    --------'
    Public Sub New(ByVal Inmuebles As String, ByVal Cliente As String, ByVal Vendedor As String)
        Me.Inmuebles = Inmuebles
        Me.Cliente = Cliente
        Me.Vendedor = Vendedor
    End Sub
    '-------    CONSTRUCTOR  SEPARACION VENTA + TECHO PROPIO   --------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idEdificio As Int32, ByVal descEdificio As String, _
                   ByVal idModelo As Int32, ByVal descModelo As String, ByVal idUndInmob As Int32, ByVal descUndInmob As String, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal valorVenta As Decimal, _
                   ByVal precioVenta As Decimal, ByVal separacion As Decimal, ByVal ctaInicial As Decimal, ByVal saldoFinanciar As Decimal, _
                   ByVal montoTechoPropio As Decimal, ByVal fechaTechoPropio As String, ByVal estadoTechopropio As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = valorVenta
        Me.precioVenta = precioVenta
        Me.separacion = separacion
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.techopropio = montoTechoPropio
        Me.FechaTP = fechaTechoPropio
        Me.EstadoTP = estadoTechopropio
    End Sub
    '-------    CONSTRUCTOR  SEPARACION VENTA    --------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idEdificio As Int32, ByVal descEdificio As String, _
                   ByVal idModelo As Int32, ByVal descModelo As String, ByVal idUndInmob As Int32, ByVal descUndInmob As String, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal valorVenta As Decimal, _
                   ByVal precioVenta As Decimal, ByVal separacion As Decimal, ByVal ctaInicial As Decimal, ByVal saldoFinanciar As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = valorVenta
        Me.precioVenta = precioVenta
        Me.separacion = separacion
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
    End Sub

    '-------   REPORTE VENDEDOR - COMISION SEPARACION -------'
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal idSeparacionVentaDetalle As Int32, ByVal idVendedor As Int32, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal idEdificio As Int32, _
                   ByVal descEdificio As String, ByVal idModelo As Int32, ByVal descModelo As String, ByVal nroInmueble As String, _
                   ByVal valorVenta As Decimal, ByVal comisionProforma As Decimal)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaDetalle = idSeparacionVentaDetalle

        Me.Evendedor = New Evendedor(idVendedor, nombre, apePaterno, apeMaterno)

        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.EunidInmobiliarias = New EunidInmobiliarias(nroInmueble, valorVenta)
        Me.valorVenta = valorVenta
        Me.comisionSeparacionVenta = Math.Round(comisionSeparacionVenta, 2)
    End Sub

    '-------   MENU REPORTE - SEPARACION VENTA DETALLE -------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaDetalle As Int32, _
                   ByVal nomEdiMzn As String, ByVal idModelo As Int32, ByVal nomModelo As String, ByVal idTpoInmueble As Int32, _
                   ByVal descTpoInmueble As String, ByVal nroInmueble As String, ByVal valorVenta As Decimal, ByVal precioVenta As Decimal)

        Me.idProyecto = idProyecto
        'Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        'Me.descEtapa = descEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaDetalle = idSeparacionVentaDetalle
        Me.descEdificio = nomEdiMzn
        Me.idModelo = idModelo
        Me.nomModelo = nomModelo
        Me.EtpoInmueble = New EtpoInmueble(idTpoInmueble, descTpoInmueble)
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        'Me.EunidInmobiliarias = New EunidInmobiliarias(nroInmueble)
        Me.nroInmueble = nroInmueble
        Me.valorVenta = valorVenta
        Me.precioVenta = precioVenta
    End Sub

    '-------   MENU REPORTE - SEPARACION VENTA DETALLE FILTRO -------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idEdificio As Int32, ByVal descEdificio As String, ByVal idModelo As Int32, ByVal descModelo As String, _
                   ByVal idUndInmob As Int32, ByVal descUndInmob As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal monto As Decimal, ByVal dscto As Decimal, ByVal dsctoMonto As Decimal, ByVal total As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idProforma
        Me.idSeparacionVentaDetalle = idProformaDetalle
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = total 'monto
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
        Me.precioVenta = total 'monto
        'Me.descuento = descuento
        Me.saldoFinanciar = total
        'Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    '-------   SE AGREGO UN CAMPO AL FILTRAR PROFORMA PARA RECUPERAR IDESTADOINMUEBLE + MONTO TECHO PROPIO-------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idEdificio As Int32, ByVal descEdificio As String, ByVal idModelo As Int32, ByVal descModelo As String, _
                   ByVal idUndInmob As Int32, ByVal descUndInmob As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal monto As Decimal, ByVal dscto As Decimal, ByVal dsctoMonto As Decimal, ByVal total As Decimal, _
                   ByVal idEstadoInmueble As Int32, ByVal montoTechoPropio As Decimal, ByVal fechaTechoPropio As String, ByVal estadoTechoPropio As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idProforma
        Me.idSeparacionVentaDetalle = idProformaDetalle
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = total
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
        Me.precioVenta = total
        Me.saldoFinanciar = total - montoTechoPropio
        Me.idEstadoInmueble = idEstadoInmueble
        Me.techopropio = montoTechoPropio
        Me.FechaTP = fechaTechoPropio
        Me.EstadoTP = estadoTechoPropio
    End Sub
    '-------   SE AGREGO UN CAMPO AL FILTRAR PROFORMA PARA RECUPERAR IDESTADOINMUEBLE-------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idEdificio As Int32, ByVal descEdificio As String, ByVal idModelo As Int32, ByVal descModelo As String, _
                   ByVal idUndInmob As Int32, ByVal descUndInmob As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal monto As Decimal, ByVal dscto As Decimal, ByVal dsctoMonto As Decimal, ByVal total As Decimal, ByVal idEstadoInmueble As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idProforma
        Me.idSeparacionVentaDetalle = idProformaDetalle
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = total 'monto
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
        Me.precioVenta = total 'monto
        'Me.descuento = descuento
        Me.saldoFinanciar = total
        Me.idEstadoInmueble = idEstadoInmueble
        'Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDetalle As Int32, _
                   ByVal idEdificio As Int32, ByVal descEdificio As String, ByVal idModelo As Int32, ByVal descModelo As String, _
                   ByVal idUndInmob As Int32, ByVal descUndInmob As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal fchPago As String, ByVal precioVenta As Decimal, ByVal separacion As Decimal, ByVal ctaInicial As Decimal, _
                   ByVal saldoFinanciar As Decimal, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal idEntidadFin As Int32, _
                   ByVal idCuenta As Int32, ByVal numOperacion As String, ByVal techopropio As Decimal, ByVal fchTechoPropio As String, _
                   ByVal idTpoTechoPropio As Int32, ByVal fchVencTechoPropio As String, ByVal idEstadoTechoPropio As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idProforma
        Me.idSeparacionVentaDetalle = idProformaDetalle
        Me.idEdificio = idEdificio
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
        Me.valorVenta = precioVenta
        Me.fchPago = fchPago
        Me.precioVenta = precioVenta
        Me.separacion = separacion
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.idEntidadFin = idEntidadFin
        Me.idCuenta = idCuenta
        Me.numOperacion = numOperacion
        Me.techopropio = techopropio
        Me.FechaTP = fchTechoPropio
        Me.TipoTP = idTpoTechoPropio
        Me.FechaVencTP = fchVencTechoPropio
        Me.EstadoTP = idEstadoTechoPropio

        'Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    '--------

#End Region

End Class
